use strict;

open(INFILE, "<sn.txt") or die "Couldn't read from sn.txt!";
my $sn = <INFILE>;
chomp($sn);
$sn -= 1;
close(INFILE) or die "Couldn't close sn.txt!";


my $basedir = "D:\\DailyBuild\\";
my $todir = $basedir . $sn. "\\";
my $fromfile = "log.txt";

`copy /y $fromfile $todir`;
print "Finish copy files to  ", $todir, ".\n";



